home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0620.arc / RBBS0620.MRG < prev    next >
Encoding:
Text File  |  1988-06-20  |  1.2 KB  |  29 lines
  1. * Change to RBBS-PC.BAS with 0424 fixes already applied.
  2. * Change version.
  3. 105 VERSION.ID$ = "CPC16.1A with fixes through 06-20-88"             ' TF062001
  4.     XOFF$ = CHR$(19)
  5.     XON$ = CHR$(17)
  6.     INTERRUPT.ON$ = CHR$(11) + CANCEL$ + XOFF$ + XON$ + CARRIAGE.RETURN$
  7.   ' ******************** Logon Error Message Table ****************************
  8. * Require the questionnaire to be listed in the questionnaire menu.
  9. 1401 CALL SUBMENU ("Which questionnaire(s), L)ist" + PRESS.ENTER.EXPERT$, _
  10.                    A1$,QUES.PATH$,".DEF","",USER.GRAPHIC.DEFAULT$,TRUE,FALSE,TRUE) ' TF062001
  11.      IF Q = 0 THEN _
  12.         RETURN
  13.      IF SUBROUTINE.PARAMETER = -1 THEN _
  14.         RETURN 10595
  15.      QUESTIONNAIRE.HOLD$ = Z$
  16.      GOSUB 11520
  17.      CLOSE 2
  18.      CALL UPDTCALR (QUESTIONNAIRE.HOLD$ + " questionnaire " + _
  19.         MID$("answeredaborted",1 - 8 * QUESTIONNAIRE.ABORTED,8),2)
  20.      ANS.INDEX = ANS.INDEX + 1
  21.      IF ANS.INDEX > LAST.INDEX THEN _
  22.         ANS.INDEX = 0
  23.      GOTO 1401
  24. '
  25. ' *****************************************************************************
  26. ' *             TOGGLE COMMAND (UTILITIES)                                    *
  27. ' *****************************************************************************
  28. '
  29.